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; 1 0001 MODULE FORSS$ASSOC ELL TUE vosete 6 FORTRAN associated yor igele : 
; § Bans IDENT = _ , File name: FORASSOC.B32 Edit: $8L1003 : 
; 4 0004 1 BEGIN : 
3 5 0005 1 : 
; 0006 1! 3 
H 8 44 44 } Ree ARR AREA AEEE EERE AAA A AAA Py 
Z 'e te é 
3 y 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * : 
; 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
; i got) } ‘* ALL RIGHTS RESERVED. * ‘ 
: al * ° 
: 18 $01 1 !* THIS porrenet fs FURNISHED UNDER A LICENSE AND MAY BE YSED AND copree * | : 
; % 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
; 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
3 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © ; 
: 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 2 
: 18 id : om TRANSFERRED. * : 
3 '® * 3 
3 20 002G 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
; $$ O56 ! :* CORPORATION. + 

2 '® & 

; 24 Ose 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; & 0026 1 !* * 

; a 0027 1 !« . 

3 28 0028 1 LRA ARERR AREER REAR EAE AAA ES 

; 0029 1 

S 0030 1 !++ ; 

; 0031 1 ! FACILITY: FORTRAN Support Library - not user callable 

i: OoRs 1! 

ee 0033 1 ! ABSTRACT: | 

; 0034 1! 

i; BB 0035 1! This module contains routine FORS$ASSOC: store record | 

; 38 B38 : number from the LUB into the users (optional) associated variable. | 

3 $0 std : ; ENVIRONMENT: User access mode; AST level or not. 

; re rk : AUTHOR: Jonathan M. Taylor; CREATION DATE: 8-JUL-77 

; 42 Be8 1 ! MODIFIED BY: 

: 45 004 1! 

: (446 0044 1! Jonathan M. Taylor, 8-JUL-77 : VERSION 0 

: 645 0045 1! 0-1 = original 

; 646 0046 1! 6-§ - Make GTR comparison unsigned JMT 2-OCT-77 

; «647 0047 1! 0- - Modified to get rid of routine FORSSDIR CHKNUM, now don 

; «48 0048 1! IOBEG time. Module name changed from FORSSDIR_ACC. gRT 1 e-oct- -77 

:; 49 0049 1! 0-4 = Global register CCB. JMT 8-Apr-78 

; 2 0050 1 ! 0-05 = Change REQUIRE files for VAX ‘ er build. DGP 28-Apr-78 

. 2 0051 1 ! 0-06 = Change file name to FORASSOC.B ong ychange the names of the 

3 26 ooee 1! REQ IR E files similarly. JBS ee 78 

oe 005% 1 ! 1-001 = Update version number and copyri nt “notice, JBS 16-NOV-78 

; «(54 0054 1! 1-26 - t ange REQUIRE file names from F to OTS... JBS 06-DEC-78 

; 22 BR32 : 1-003 - Use prologue file. SBL Soejon-1988"” 
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s- 
CFORRTL.SRCJFORASSOC.B32;1 
' 


! PROLOGUE FILE: 


ooooco 


DVS BS BS BS BS BB EE AANA AAAI OO! 


WN OOCONA UE WN OOONOUEWN- O0ON-OUOOo~ 


REQUIRE "RTLIN:FORPROLOG'; ! FORS definitions 
' 


; TABLE OF CONTENTS 


FORWARD ROUTINE 
FORSSASSOC: CALL_CCB NOVALUE; ! Store users associated variable 


; MACROS: 
i NONE 


; EQUATED SYMBOLS: 
i NONE 


: OWN STORAGE 
i NONE 


EXTERNAL REFERENCES: 


pele lelelelelelelelelelelelelelelelelelelelelelelelelolelolalolo) 
Ok kk a kd 
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FORSSASSOC Update FORTRAN associated variable 1b-sep-19 4 00: 4e:3) AX-11 Oh ieee V4.0-74 Page 3 
1-003 Store users associated variable 14-Sep-1984 12:31:37 FORRTL.SRCJFORASSOC.B32;1 (3) 
; Wi 154 1 ZSBTTL*Store users associated variable’ 
5 36 155 1 GLOBAL ROUTINE FORSSASSOC 
2 1 § 1 : CALL_CCB NOVALUE = 
; 494 1 1 
:; 8128 1 +4 
: 38 122 ! ; FUNCTIONAL DESCRIPTION: | 
; 3 01 7 3 If an associated variable is present, store the 
3 196 196 : logical record number from the LUB into it. | 
; 101 0164 1 ! FORMAL PARAMETERS: 
; 196 3199 1! 
3; 196 1 ! IMPLICIT INPUTS: | 
; 104 016 1! : ? . 
: 105 0168 1! OTSS$A_CUR_LUB Pointer to current logical unit 
; 196 8199 z block (LUB) used to setup LUB 
: 10 0170 1! base pointer. 
; 108 0171 1! LUBSA_ASSOC_VAR Address of assoc. var, or zero if none 
: 109 B76 1: LUB$V_ASS_VAR_L TRUE iff assoc. var. is a longword value 
3 uy aes : LUBS$L_RECNO Current record number 
; 16 0175 1 ! IMPLICIT OUTPUTS: 
; (11 0176 1! . : 
; (114 0177 1! assoc. var. Updated associated variable (if present) 
s; 393 0178 1! | 
; 116 0179 1 =! ROUTINE VALUE: 
s Viz 0180 1! | 
: 118 0181 1! NONE 
: 119 HET 1! 
: 120 0185 1 ! SIDE EFFECTS: 
3; ig! 0184 1! 
: \s¢ 0185 1! NONE 
ee f 0186 1 !-- 
: 124 0187 1 
s 2s 0188 2 BEGIN 
; 126 0189 2 
s Yer 0190 § EXTERNAL REGISTER 
: 128 0191 CCB: REF SFORSCCB_DECL; 
; 193 3136 2 
: 130 0195 2 + : : Phebe 
s 43) 0194 2 ! If an associated variable is used with this file, store the 
; 13 0195 2 ! record number into it. 
ae 0196 2 te 
; 134 0197 $ 
3; «6135 0198 IF .CCBCLUBSA_ASSOC_VAR] NEQA 0 
; 136 0199 2 THEN 
, tar 0200 
; 138 0201 BEGIN 
: 139 0508 '¢ és . ‘ : 
i 140 020 ! If associated variable is a longword, store 32-bits 
: 161 0204 = 
3 1s 8502 
; 16? 3 8 IF .CCBCLUBSV_ASS_VAR_LJ 
3; «(145 $508 .CCBCLUBSA_ASSOC_VAR] = .CCBCLUBSL_LOG_RECNO) 
: 125 0510 te 


See Geese Oe Se Ge Se ae 
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FORSSASSOC Update FORTRAN associated variable -1984 :12:31 AX-11 Bliss-32 V4.0-7 Pa 4. Fl 
pe 3 Store users associated variable 27808-1383 90:30:3) FORRTL.SRC FORASSOC. BS 31 - (3) 1 
148 8 11 '¢ 
149 \¢ i j else store 16-bits ; 
184 0542 
136 8 2 _C. CCBCLUBSA_ASSOC_VAR])<0,16,0> = .CCBCLUBSL_LOG_RECNO); : 
154 0 i ; : 
155 8518 RETURN; 3 
156 0219 1 END; ! end of routine ; 
-TITLE FORSS$ASSOC Update FORTRAN associated variable | 
eIDENT \1=-003\ 
-PSECT _FORSCODE,NOWRT, SHR, PIC,2 
0000 00000 «ENTRY TRTEAS SOC Save nothing : 0155) 
50 DC AB dO 00002 MOVL -36(CCB), RO : 0198. 
OE 13 00006 BEQL ; 
05 FD AB 04 €1 00008 BBC -3(CCB), 1$ 3 0204) 
60 EO AB 00 0000D MOVL PbcceBS (RO) > 0208 
04 00011 RET ; 
60 EO AB B60 00012 1$: MOVW -32(CCB), (RO) ; 0215) 
04 00016 2$: RET ; 0219, 
| 
Routine Size: 23 bytes, Routine Base: _FORSCODE + 0000 
157 0220 1 | 
158 0221 1 END ' END OF MODULE 
159 0222 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_FORSCODE 23 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
quesnsee Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
~ $52 380UACE: Es SYSLIBISTARLET 3251 9776 8 9 581 00:01.0 
~8255$D RRTL.OBJ Mat eae 711 17 2 | 00: 00.6 
~8255$DUA28: FORRIC: OBJIRTLLIB.L32;1 36 0 0 00:00.1 
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; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:FORASSOC/OBJ=OBJ$:FORASSOC MSRC$:FORASSOC/UPDATE=(ENH$:F ORASSOC) 


3; Size: 23 code + 0 data bytes 
3; Run Time: 00:04.4 
; Elapsed Time: 00:16.1 
3: Lines/CPU Min: 300 

: Lexemes/CPU-Min: 5864 

: aeey Used: 66 pages 

; Compilation Complete 
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